VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPedido"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCompania"
Attribute VB_Ext_KEY = "Member1" ,"bEstado"
Attribute VB_Ext_KEY = "Member2" ,"bMesa"
Attribute VB_Ext_KEY = "Member3" ,"bPuntoVenta"
Attribute VB_Ext_KEY = "Member4" ,"bPuntoVenta"
Attribute VB_Ext_KEY = "Member5" ,"busuario"
'---------------------------------------------------------------------------------------
' Module    : BPedido
' DateTime  : 30/11/2011 12:00
' Author    :
' Purpose   : Clase Datos Entidad Venta
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarbCompania As bCompania
Private mvarnCodigo As Long
Private mvarsSerDocumento As String
Private mvarsNumDocumento As String
Private mvarbTipoDocumento As BTipo
Private mvarbMesa As bMesa
Private mvarbUsuario As busuario
Private mvarbEstado As bEstado
Private mvardFecha As Date
Private mvarnTotal As Double
Private mvarnBasImponible As Double
Private mvarnIgv As Double
Private mvarnServicio As Double
Private mvarnDescuento As Double
Private mvarsObservacion As String
Private mvarnTipCambio As Double
Private mvarLDetalle As Collection
Private mvarnDiaTrabajo As Integer
Private mvarlPagos As Collection
Private mvarnTotPagado As Double
Private mvarnCambio As Double
Private mvarbImpreso As Boolean
Private mvarbCliente As bCliente
Private mvarnTotalSinDscto As Double
Public Property Get nTotalSinDscto() As Double
    nTotalSinDscto = mvarnTotalSinDscto
End Property
Public Property Let nTotalSinDscto(ByVal nTotalSinDscto As Double)
    mvarnTotalSinDscto = nTotalSinDscto
End Property
Private Sub Class_Terminate()
    Set mvarlPagos = Nothing
    Set mvarbCliente = Nothing
    Set mvarLDetalle = Nothing
End Sub
Friend Property Get lPagos() As Collection
    Set lPagos = mvarlPagos
End Property
Friend Property Set lPagos(lPagos As Collection)
    Set mvarlPagos = lPagos
End Property
Friend Property Set bMesa(ByVal vData As bMesa)
    Set mvarbMesa = vData
End Property
Friend Property Get bMesa() As bMesa
    Set bMesa = mvarbMesa
End Property
Friend Property Let nTipCambio(ByVal vData As Double)
    mvarnTipCambio = vData
End Property
Friend Property Get nTipCambio() As Double
    nTipCambio = mvarnTipCambio
End Property
Friend Property Let sObservacion(ByVal vData As String)
    mvarsObservacion = vData
End Property
Friend Property Get sObservacion() As String
    sObservacion = mvarsObservacion
End Property
Friend Property Let nDescuento(ByVal vData As Double)
    mvarnDescuento = vData
End Property
Friend Property Get nDescuento() As Double
    nDescuento = mvarnDescuento
End Property
Friend Property Let nIgv(ByVal vData As Double)
    mvarnIgv = vData
End Property
Friend Property Get nIgv() As Double
    nIgv = mvarnIgv
End Property
Friend Property Let nServicio(ByVal vData As Double)
    mvarnServicio = vData
End Property
Friend Property Get nServicio() As Double
    nServicio = mvarnServicio
End Property
Friend Property Let nBasImponible(ByVal vData As Double)
    mvarnBasImponible = vData
End Property
Friend Property Get nBasImponible() As Double
    nBasImponible = mvarnBasImponible
End Property
Friend Property Let nTotal(ByVal vData As Double)
    mvarnTotal = vData
End Property
Friend Property Get nTotal() As Double
    nTotal = mvarnTotal
End Property
Friend Property Let dFecha(ByVal vData As Date)
    mvardFecha = vData
End Property
Friend Property Get dFecha() As Date
    dFecha = mvardFecha
End Property
Friend Property Set bEstado(ByVal vData As bEstado)
    Set mvarbEstado = vData
End Property
Friend Property Get bEstado() As bEstado
    Set bEstado = mvarbEstado
End Property
Friend Property Set busuario(ByVal vData As busuario)
    Set mvarbUsuario = vData
End Property
Friend Property Get busuario() As busuario
    Set busuario = mvarbUsuario
End Property
Friend Property Set bTipoDocumento(ByVal vData As BTipo)
    Set mvarbTipoDocumento = vData
End Property
Friend Property Get bTipoDocumento() As BTipo
    Set bTipoDocumento = mvarbTipoDocumento
End Property
Friend Property Let sNumDocumento(ByVal vData As String)
    mvarsNumDocumento = vData
End Property
Friend Property Get sNumDocumento() As String
    sNumDocumento = mvarsNumDocumento
End Property
Friend Property Let sSerDocumento(ByVal vData As String)
    mvarsSerDocumento = vData
End Property
Friend Property Get sSerDocumento() As String
    sSerDocumento = mvarsSerDocumento
End Property
Friend Property Let ncodigo(ByVal vData As Long)
    mvarnCodigo = vData
End Property
Friend Property Get ncodigo() As Long
    ncodigo = mvarnCodigo
End Property
Friend Property Set bCompania(ByVal vData As bCompania)
   Set mvarbCompania = vData
End Property
Friend Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property
Friend Property Set lDetalle(ByVal vData As Collection)
   Set mvarLDetalle = vData
End Property
Friend Property Get lDetalle() As Collection
    Set lDetalle = mvarLDetalle
End Property
Friend Property Get nDiaTrabajo() As Integer
    nDiaTrabajo = mvarnDiaTrabajo
End Property
Friend Property Let nDiaTrabajo(ByVal nDiaTrabajo As Integer)
    mvarnDiaTrabajo = nDiaTrabajo
End Property
Public Property Get nTotPagado() As Double
    nTotPagado = mvarnTotPagado
End Property
Public Property Let nTotPagado(ByVal nTotPagado As Double)
    mvarnTotPagado = nTotPagado
End Property
Public Property Get nCambio() As Double
    nCambio = mvarnCambio
End Property
Public Property Let nCambio(ByVal nCambio As Double)
    mvarnCambio = nCambio
End Property
Public Property Get bImpreso() As Boolean
    bImpreso = mvarbImpreso
End Property
Public Property Let bImpreso(ByVal bImpreso As Boolean)
    mvarbImpreso = bImpreso
End Property
Private Sub Class_Initialize()
Set mvarbCompania = New bCompania
Set mvarbTipoDocumento = New BTipo
Set mvarbUsuario = New busuario
Set mvarbEstado = New bEstado
Set mvarLDetalle = New Collection
Set mvarlPagos = New Collection
Set mvarbMesa = New bMesa
Set mvarbCliente = New bCliente
End Sub
Friend Property Get bCliente() As bCliente
    Set bCliente = mvarbCliente
End Property
Friend Property Set bCliente(bCliente As bCliente)
    Set mvarbCliente = bCliente
End Property
